Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel 68k/lib_test/test_inspect2.e

Text File | 1996-06-13 | 438 b | 22 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
class TEST_INSPECT2

creation make

feature

   make is
      do
         inspect
        1
         when 2 then io.put_string("Impossible%N")
         when 3 then io.put_string("Impossible aussi%N")
     else
         end
     -- io.put_string("Maintenant, je souris :-)%N");
      end;

end -- TEST_INSPECT2